home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD50004202000.psc / Automatically Resize Form and Controls.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-04-21  |  2.2 KB  |  79 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Automatically Resize Form and Controls"
  4.    ClientHeight    =   2730
  5.    ClientLeft      =   3105
  6.    ClientTop       =   2685
  7.    ClientWidth     =   4980
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   2730
  10.    ScaleWidth      =   4980
  11.    Begin VB.DriveListBox Drive1 
  12.       Height          =   315
  13.       Left            =   2460
  14.       TabIndex        =   3
  15.       Top             =   1110
  16.       Width           =   1935
  17.    End
  18.    Begin VB.TextBox Text1 
  19.       Height          =   285
  20.       Left            =   2460
  21.       TabIndex        =   2
  22.       Text            =   "Text1"
  23.       Top             =   780
  24.       Width           =   1245
  25.    End
  26.    Begin VB.CommandButton Command1 
  27.       Caption         =   "E&xit"
  28.       Height          =   315
  29.       Left            =   3090
  30.       TabIndex        =   1
  31.       Top             =   2310
  32.       Width           =   1335
  33.    End
  34.    Begin VB.Label Label2 
  35.       AutoSize        =   -1  'True
  36.       Caption         =   "Try to resize me..."
  37.       ForeColor       =   &H000000FF&
  38.       Height          =   195
  39.       Left            =   360
  40.       TabIndex        =   4
  41.       Top             =   2340
  42.       Width           =   1245
  43.    End
  44.    Begin VB.Line Line1 
  45.       BorderWidth     =   2
  46.       X1              =   390
  47.       X2              =   4590
  48.       Y1              =   2220
  49.       Y2              =   2220
  50.    End
  51.    Begin VB.Image Image1 
  52.       Height          =   1845
  53.       Left            =   360
  54.       Picture         =   "Automatically Resize Form and Controls.frx":0000
  55.       Stretch         =   -1  'True
  56.       Top             =   240
  57.       Width           =   1695
  58.    End
  59.    Begin VB.Label Label1 
  60.       AutoSize        =   -1  'True
  61.       Caption         =   "Label1"
  62.       Height          =   195
  63.       Left            =   2460
  64.       TabIndex        =   0
  65.       Top             =   510
  66.       Width           =   480
  67.    End
  68. Attribute VB_Name = "Form1"
  69. Attribute VB_GlobalNameSpace = False
  70. Attribute VB_Creatable = False
  71. Attribute VB_PredeclaredId = True
  72. Attribute VB_Exposed = False
  73. Private Sub Command1_Click()
  74.   Unload Me
  75. End Sub
  76. Private Sub Form_Resize()
  77.   ResizeForm Me
  78. End Sub
  79.